home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Bible.cpt / Hyper Sword / card_30140.txt < prev    next >
Text File  |  1989-07-04  |  2KB  |  117 lines
  1. -- card: 30140 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2636
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0005
  11. -- rect: left=20 top=155 right=178 bottom=42
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the cursor to 4
  23.   global duplicate
  24.   global scoring
  25.   add 1 to scoring
  26.   put"" into background field id"21"
  27.   get loc of background field id"21"
  28.   choose browse tool
  29.   Play"Applause"
  30.   click at it
  31.   type"Correct - Keep up the Good Work."
  32.   add 1 to duplicate
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 0005
  40. -- rect: left=20 top=132 right=155 bottom=42
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: New Button
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   set the cursor to 4
  52.   global duplicate
  53.   put"" into background field id"21"
  54.   get loc of background field id"21"
  55.   choose browse tool
  56.   click at it
  57.   play"boing"
  58.   type"Sorry your answer is incorrect"
  59.   add 1 to duplicate
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 3 (button)
  65. -- low flags: 00
  66. -- high flags: 0005
  67. -- rect: left=20 top=109 right=132 bottom=42
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: New Button
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   set the cursor to 4
  79.   global duplicate
  80.   put"" into background field id"21"
  81.   get loc of background field id"21"
  82.   choose browse tool
  83.   click at it
  84.   play"boing"
  85.   type"Sorry your answer is incorrect"
  86.   add 1 to duplicate
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part contents for background part 37
  92. ----- text -----
  93. 12000
  94.  
  95. -- part contents for background part 32
  96. ----- text -----
  97. Hebrews and James
  98.  
  99. -- part contents for background part 1
  100. ----- text -----
  101. The book of Hebrews presents the only full discussion in the New Testament of Christ as the believer's ___________.
  102.  
  103. -- part contents for background part 14
  104. ----- text -----
  105. High Priest
  106.  
  107. -- part contents for background part 13
  108. ----- text -----
  109. Saviour
  110.  
  111. -- part contents for background part 12
  112. ----- text -----
  113. Friend
  114.  
  115. -- part contents for background part 43
  116. ----- text -----
  117. Hebrews 2:17 - Hebrews 5:1-10,18